home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abj.d64 / lifespans (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  74 lines
  1. 10 PRINT "[154][147]"
  2. 20 POKE 53281,.:POKE 53280,.
  3. 100 PRINT SPC(13) "   LIFESPANS
  4. 110 [153] [166]13) "       BY
  5. 120 PRINT SPC(13) "  SCOTT GAMON
  6. 130 [153]
  7. 140 [153]
  8. 150 [153] "TAKE THIS SHORT QUIZ TO"
  9. 160 [153] "DETERMINE YOUR..."
  10. 170 [153] ""
  11. 180 [129] I[178]1[164]15:[153]"LEN";:[129]J[178]1[164]100:[130]J:[130] I
  12. 190 [153] " LIFESPAN ";
  13. 200 [129] I[178]1[164]14:[153]"LEN";:[129]J[178]1[164]100:[130]J:[130] I
  14. 210 [153]:[153]""
  15. 220 LS[178]72
  16. 230 [135] Q$,Y,N
  17. 240 [139] Q$[178]"-1" [167] 310
  18. 250 [153] Q$ :[133] A$
  19. 260 B$[178][200](A$,1)
  20. 270 [139] B$[179][177]"Y" [175] B$[179][177]"N" [167] 250
  21. 280 [139] B$[178]"Y" [167] LS[178]LS[170]Y
  22. 290 [139] B$[178]"N" [167] LS[178]LS[170]N
  23. 300 [153]: [137] 230
  24. 310 [153] "LOAD"
  25. 320 [153]
  26. 330 [153] [166]18) "YOUR"
  27. 335 [153] ""
  28. 340 [129] I[178]1[164]15:[153]"LEN";:[129]J[178]1[164]100:[130]J:[130] I
  29. 350 [153] " LIFESPAN ";
  30. 360 [129] I[178]1[164]14:[153]"LEN";:[129]J[178]1[164]100:[130]J:[130] I
  31. 365 [153]:[153]
  32. 370 [153] [166]19) "CONTIS"
  33. 375 [153]
  34. 380 [153] [166]18) "LIST"LS
  35. 390 [128]
  36. 1000 [131] ARE YOU MALE,-3,4
  37. 1010 [131] DO YOU LIVE IN AN URBAN AREA WITH A POPULATION OF MORE THAN 2 MILLION
  38. 1015 [131] -2,0
  39. 1020 [131] DO YOU LIVE IN A TOWN WITH FEWER THAN   10000 PEOPLE OR ON A FARM,2,0
  40. 1030 [131] DID ANY OF YOUR GRANDPARENTS LIVE TO AGE85,2,0
  41. 1040 [131] DID ALL FOUR OF YOUR GRANDPARENTS LIVE  TO AGE 80,6,0
  42. 1050 [131] DID EITHER OF YOUR PARENTS DIE OF STROKEOR HEART ATTACK BEFORE AGE 50
  43. 1055 [131] -4,0
  44. 1060 [131] DID A PARENT OR SIBLING UNDER 50 HAVE   CANCER; HEART; OR DIABETES
  45. 1065 [131] -3,0
  46. 1070 [131] DO YOU EARN MORE THAN $50000 PER YEAR,-2,0
  47. 1080 [131] DID YOU FINISH COLLEGE,1,0
  48. 1090 [131] DO YOU HAVE A GRADUATE OR PROFESSIONAL  DEGREE,2,0
  49. 1100 [131] ARE YOU AGE 65 OR OLDER AND WORKING,3,0
  50. 1110 [131] DO YOU LIVE WITH A SPOUSE OR FRIEND,5,-1.5
  51. 1120 [131] DO YOU WORK BEHIND A DESK,-3,0
  52. 1130 [131] DOES YOUR WORK REQUIRE REGULAR HEAVY    PHYSICAL LABOR,3,0
  53. 1140 [131] DO YOU EXERCISE STRENUOUSLY 5 TIMES A   WEEK FOR AT LEAST A HALF-HOUR
  54. 1145 [131] 4,0
  55. 1150 [131] 2 OR 3 TIMES A WEEK,2,0
  56. 1160 [131] DO YOU SLEEP MORE THAN 10 HOURS PER     NIGHT,-4,0
  57. 1170 [131] ARE YOU INTENSE; AGGRESIVE; AND EASILY  ANGERED,-3,0
  58. 1180 [131] ARE YOU EASY GOING AND RELAXED,3,0
  59. 1190 [131] ARE YOU HAPPY,1,-2
  60. 1200 [131] HAVE YOU HAD A SPEEDING TICKET IN THE   PAST YEAR,-1,0
  61. 1210 [131] DO YOU SMOKE MORE THAN 2 PACKS OF       CIGARETTES PER DAY,-8,0
  62. 1220 [131] 1 TO 2 PACKS,-6,0
  63. 1230 [131] HALF A PACK TO A PACK,-3,0
  64. 1240 [131] DO YOU DRINK THE EQUIVALENT OF 1 1/2    OUNCES OF LIQUOR PER DAY,-1,0
  65. 1250 [131] ARE YOU OVERWEIGHT BY 50 OR MORE POUNDS,-8,0
  66. 1260 [131] BY 30 TO 50 POUNDS,-4,0
  67. 1270 [131] BY 10 TO 30 POUNDS,-2,0
  68. 1280 [131] ARE YOU A MAN OVER 40 AND HAVE ANNUAL   CHECKUPS,2,0
  69. 1290 [131] ARE YOU A WOMAN AND SEE A GYBECOLOGIST  ONCE A YEAR,2,0
  70. 1300 [131] ARE YOU BETWEEN 30 AND 40,2,0
  71. 1310 [131] ARE YOU BETWEEN 50 AND 70,4,0
  72. 1320 [131] ARE YOU OLDER THAN 70,5,0
  73. 1330 [131] -1,-1,-1
  74.